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Fortran For The Curious 


by Clayton E. Houston 


This is going to be an article 
on Fortran written to the home 
computer enthusiast who has a 
reasonable understanding of 
BASIC, i.e., knows the fun- 
damentals and structuring of a 
program but has never been 
exposed to Fortran. Though 
this article will not go into 
depth on any one item it will 


expose the curious hacker to: — 


the mistique of Fortran. There 


are many good texts and users 


guides made for your par- 
ticular system that will detail 
where the commas, brackets, 
etc. go to get their system to 
operate. I will try to relate 
BASIC and Fortran so you will 
be able to readily jump back 
and forth between the two 
~ language systems. Believe me, 
once you have one understood 
the other one is a snap! 
Introduction 

Fortran, as it’s derived name 
implies, is a computer 
- language intended for FOR- 
mula TRANslation of equa- 
tions into useful number crun- 
ching programs. As you pro- 
bably know, Fortran is a com- 
piled system which converts 
the equation coding directly in- 
to machine language which 
can be executed at significant- 
ly higher speeds than the equa- 
tions were crunched in normal 
BASIC systems. 

I like to break the Fortran 
program to be designed into 
three (3) sections: front, main, 
and bottom. The main section 
is the part most anyone can 
follow as it contains the equa- 
tions that we’re interested in 
crunching. We usually try to 
make the coding using the 
same names as in the equation 
specifications to aid in check- 
ing out the computations at a 


later time. The other two sec- 
tions, the front and the bottom 


are the ones that usually create 


the problems. The front is 
where we declare the arrays in 
the dimension statements but 
also in what we call COM- 
MON which is a shared section 
of memory that various chain- 
ed subprograms use to transfer 
data back and forth. We also 


declare nonstandard variables 


as Integer or Real items. There 
are a few other things we do in 
the front section that we won't 
discuss as it’s just for the “pros” 
who do serious number crun- 
ching. The bottom section is 
where I usually locate my 
write-out statements. You can 


_ actually write output at any 


time in the program since you 


usually output after you per- | 


form the calculations in 
general, it will be at the end. 


I like the format statements in > 
one central location but a lot of 


programmers like the format 
statement right with the write 
statement. 

As you noted above, there’s 
something in Fortran in- 
put/output (I/O) called format 
statements. This is probably 
where most programming time 
is spent in the beginning, try- 
ing to debug the I/O. It’s not 
quite this bad, but in Fertran 
you have to tell the computer 
exactly on what line, how 
many spaces over and what 
type of character will be read 
and written. I have noticed 
after twenty years of using For- 
tran, the I/O control 
statements are fairly second 
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nature. I’m getting where I can 
do them correctly after three or 
four times. 

This then highlights what 
will be discussed in the follow- 
ing sections. These discussions 


I hope will not bore you with 


too much detail as most texts 
seem to do. This should pro- 
vide the fundamentals of For- 
traning that the average person 
can look over to get familiar 
with how the language is used. 
As a side note and a personal 
issue, I wish text books and 
user manuals would lead us 


novices through their material 
at the highest level without try- | 


ing to let us know every feature 
of each subject. Too much 
detail too early snows the stu- 
dent of the subject who usual- 
ly loses interest in the material 
when it’s usually simple. Pro- 
gramming in itself is easy. The 
difficulty comes when trying to 
grasp too many details on one 
aspect without knowing or see- 
ing where these details fit into 
the total task of building a pro- 
gram. On with the show! 
Arithmetic Expressions 
In Fortran, there are only 
five (5) arithmetic expressions 


. noteworthy. They are: 


+ Addition © 
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— Subtraction 

* Multiplication 

/ Division 

** Exponentiation (Power) 

(In BASIC the ** is _.) 
There is something called 

hierachy of arithmetic of 


operation which means the 


order which operations are 
performed. This generally 
means that, if no brackets are 
used in the expression, the 
order will be 1) **, 2) * and /, 
and 3) + and —. To eliminate 
any warry about this hierachy 


thing I just put brackets — 


around everything. Toshowthe 


simplicity of the operation the ~ 


following equation is converted 
to Fortran. 


=(A+B-CD)/E*F 
In Fortran, 

Y= ((A+B- (C**D))/(E*F) 
With the brackets used 


liberally I’m assured that the 
number crunching is done cor- 


rectly. Without them I'd get | 


the wrong answer because ad- 
dition would have been done 
after the **,*, and / steps. 

_ Now, when typing this in, 
you cannot start before column 
7 or exceed column 72. If you 
need a longer line, you can put 
a non-zero character in column 


6 of the next input line and 
continue with your long equa- 
tion. While we’re on the loca- 
tion of coding, it should be 
noted that the first five (5) col- 
umns are reserved for 
numbered labels. In BASIC 
you have a number for each 
line of coding. In Fortran, no 
line numbers are required 
unless you have some reason to | 
route the computations to 
another area of the program 
like using a GOTO or IF in | 
BASIC. This is the need for the 
numbered labels in Fortran. It 
can have any value, but the 
compiler will not accept more 


than one value of a label 


number so you should keep 
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_ Fortran For The Curious 
‘Continued from page 147 


track of the label used to aid in 
program checkout later. 

This brings us up to the sub- 
ject of planning a little ahead 
by developing a crude flow 
chart. This does nothing more 
than to help you sectionalize 
your program, to eliminate 
duplication, i.e., using 
subroutines (GOSUBs in 
BASIC) and to assure yourself 
that you’re going to end up 
with the end product you 


ATARI* 


. For years they said it couldn't be 
done... IMPOSSIBLE they claimed! 


THE ATARI 
$449.95 “IMPOSSIBLE” Ie $449.95 


desired. An arample of the way 


I like to choose labels would be 


if I had sectionalized my 
desired program into six 
blocks, ’'d make sure when 
developing labels all of the first 
block would use a 100 series 
value, the second section a 200 


series, etc. with a 1000 series" 


for the bottom end, format 


' statements. It helps when using 


some high class editors in the 
search mode to find the area of 
interest quickly. Just a 


reminder, the label values can 
be of random selection but 
systematic selection will aid 
you later. 


Control Statements 


The control statement 


basically consists of IF, GO 
TO, DO, PAUSE, STOP, and 
END. The easiest one is the 


END statement which is plac-. 


ed at the end of the program 
just to let the compiler know it 
has all of the program, so com- 
pile! The PAUSE and STOP 


statements are placed within 


the program starting at Col- 
umn 7 and when executed does 
as advertised. It usually is a 
crutch for checkout but on very 
complex programs a STOP 
may be desired when some 
logical relation has occurred. 
It'll do just that. Now the good 
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insist on the original ... insist on THE PILL! 


ones! The DO statement is just 


like the FOR-NEXT loop in 
BASIC. The form is different. 
The form usually ‘will not 


allow starting with zero (0) or © 


using negative (— ) steps. Very 


seldom do I use steps so we'll 


ignore it here. An example of 
a Fortran DO loop is, 


~Col->1 567 72 


DO 1271 = 1,25 
X(l) = I** 3 
127 CONTINUE 
This says to do-to Label 127 
for I equals one to twenty-five 
times. The calculation of cub- 


ing I and storing the value in | 


a previously declared array of 
X in positions 1 to 25. It’s not 
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“METAMORPHOSES! is a TM papal SOFTWARE 
of Computer Software 
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complicated, but the form is 
very precise. You must create 
a Numbered Label in this case 
the value “127” for the loop to 
operate within. The label must 
be located in Columns 1 
through 5 as mentioned earlier. 
The DO to 127 operation pro- 
ceeds until the label 127 is en- 
countered at which time the 
processor jumps back to the 
start of the DO loop and con- 
tinues until the I=25 is 
satisfied. At this time it bran- 
ches over the jump-back-to 
command. Not to digress too 
much, but it’s not a good prac- 
tice to use the label of a DO 
loop for any other purpose as 
there is an inherent jump back 
command tied to the bottom of 
a DO loop. 

The next biggie control 
statement is the IF. The IF is 
used almost like it is used in 
BASIC, but the form is dif- 
ferent. The form is the IF, 
followed by brackets contain- 
ing the comparison directions, 
followed by the processing in- 
struction if the comparison(s) 
within the brackets is TRUE. 
An example of this is: 

IF( A.LT.B) GO TO 901 

The Rational operators are 
enclosed within the periods (.) 
and can usually’ be 
remembered easily. This .LT. 
stands for Less Than. The fol- 
lowing table lists the opetntor: 
.LT. Less Than 
.LE. Less Than or Equal to 
EQ. EQual To 
.NE. Not Equal to 
.GT. Greater Than 
.GE. Greater than or Equal to 

You can also have logical 
operators listed below which 


are self explanatory: 


.AND. 
.NOT. 
OR. 

They are used to combine, 
for example, two Relational 
operators each of which results 
in a true or false flag and app- 
ly a logical to those flags. An 
example is: 
IF(A.LT.B.AND.C.GE.D)GO TO 901 

In this instance A must be 
less than B and C must be 
greater than or equal to D to 
execute the GO TO 901 state- 
ment. The use of the IF state- 
ment allows you to route the 
computations through dif- 
ferent subsections of your pro- 
grams based upon logical rela- 
tions you compute. 

You saw the use of the GO 
TO control statement. It says 
to immediately go to the label 
value noted which can be 
before or after the current loca- 
tion within the program. 
Another form I use a lot is the 
COMPUTED GO TO control 
statement. I like to use this 
when I want external routing 
control to different and 
unrelated sections of the same 
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program. In this example, I in- . 


put the values of K=4 from 
the keyboard and the control 
statement. | 
‘GO TO (42, 26, 35, 24, 59), K 
jumps the process to the label 
noted in the 4th position, 
‘namely to Label = 24 (only in- 
teger/whole numbers can be 
used). If you inadvertently in- 
put K = O or K greater the five 
in the case, some compilers will 
cause the calculations to 
“blow-up” while other com- 
pilers will allow the processing 
to pass to the next line making 
your tracking down of your 
mistake difficult. 
I guess CONTINUE is also 
a control statement. As you 
noted it is the bottom of a DO 
loop. It can also be used with 
a label just as a place for the 


program to jump to and it 


doesn’t cost you any bytes of 
memory to use it that way. 
The last control statement, 
RETURN is always associated 
with a subroutine or function 
call which I'll discuss next. 
Subroutines and Functions 
The subroutines is generated 
by the form CALL. The need 
for the subroutine is generated 
by the desire to conserve pro- 


gram space. It is usually only © 


worthwhile if calculations are 
duplicated several times within 
the program and it is practical 
to extract these like statements, 


combine them into one com- 


mon set of calculations and call 
to this common set of equations 
multiple times. For example, 
in an accounting program you 
might compute principle and 
interest at six different loca- 
tions. By removing each of the 
six sets of like calculations and 


replacing each with a one line . 


“call” to a subroutine, you can 
save almost five sets of com- 
puter lines and reduce the 
space required for the 


the used computer store | 
PIXEL 1O0/AP 


Full 8-user UNIX system, 1 MBYTE RAM. 40 MBYTE hard disk drive, 
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Model 5247 with one 15.4 MBYTE hard disk unit; one model 5324 | 
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(303) 447-0353 
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@® Board Repair to Component level © 
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O’NEILL MICROFILM CO. 
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program. 

Before showing an. exausple 
of the subroutines use, let’s 
discuss the form. It’s usually 
something like: 

CALL BURP (A,B,C,X,Y,Z) 

And the other end of the 
“call” is the subroutine itself 
which is a form like: 
SUBROUTINE BURP (D,E,F,U,V,W) 


RETURN 
In general, we pass data 


_ back and forth using the items 


or symbols in the parenthesis. 
This simple illustration above 
could indicate that we have 
three variables A, B, and C 
that we pass to “BURP” who 
calls them D, E, and F values 
with answers called U, V, and 
W returns them to the main 
program where they’re called 
X, Y, and Z variables that are 
used in the remaining pro- 
gram. That’s basically all there 
is to a subroutine call. It is im- 
portant to note that the calling 
arguments A, B, C, X, Y, and 
Z are position sensitivity with 


the receiving arguments D, E,. 


F, U, V, and W. Six items are 
passed, six are received and six 
are returned after being pro- 
cessed. This illustration was for 
three input and three output 


_ items. You can have 1 and 5, 


5 and 1, 10 and 10 or almost 
anything you want as long as 
you: pass the items back and 
forth using the same position. 
In reality, the routines only 


_ pass the starting address of the 


storage location of the 
parameter (or array). That’s 
why you can switch item 
names in the subroutine and 
use a completely different set of 
item symbols. 

The FUNCTION is a lot like 
the subroutine. The compiler 
has many functions which we 
use without second thought; 
things like ABS, COS, SQRT, 


and LOG used in writing and 


all the values. 


equation such as: 

A = ABS (B) 

reflecting A is equal to an AB- 
Solute value of B. : 

If we desire to generate our 
own function called INTERP 
that performs some great 
mathematical number juggling 


- such as a data table interpula- 


tion, the form might be to pass 
to the function the X value of 
a table, the table number, 
NUM and output, the results of 
the lookup, which we would 


be: 


Y = INTERP ( X, NUM ) 
with the receiving function 
form like: 

FUNCTION Nene X1, NUM ) 


RETURN 
I don’t see a lot of difference 
in the concept of the 


subroutine and the function. 
The form is different and the 


function using form is a lot 


simpler to follow. 
Writing The Main Program 

When coding the main pro- 

gram, I tear off two pages of 

paper and title them Front and 

Bottom. I keep them handy for 

when I create a need for an ar- 

ray or common or output for- 


mat; I note it on the ap- 


propriate Front or Bottom 


sheet. To build a program you — 


initially need a plan; the “pros” 


call it a specification. So we i 


make one up. 


Let’s say you want to buy a 
house and you need to know at 
a glance what your monthly 


‘mortgage payments will be 


when the realtor says 12% % 
with $20,000 down on this 


$150,000 house. As there are so 


many combinations of loans, 


_ interest rates, years financed, 


let’s make up a table that lists 
Our re- 
quirements are that on one 
page we list the monthly mort- 


equate to Y. The form would | 


| gage tor a range of loans be- 


tween $100,000 and $150,000 
in $1,000 increments for in- 
terest rates from 8% to 16% in 
Y% increments. Each page is 
to be presented for a single 


time of financing. We also 


want finance times from 10 
years to 30 years in 5 year 
increments. 

Well, step one must always 
be to find the method of doing 
the calculations. My little math 
book gives us an equation, 


Pi 
M = 
-n 
1- (1+ i) 

| Monthly mortgage payment — $ 

P = . 

- Principle or loan value — $ 
l= 
Monthly interest = i/12 - % 

am 


' No.of payments = Years*12 — mo. 

In our crude flow charts we 
can envision three DO loops; 
one on N (years), one on P 
(principle), and one on i (in- | 
terest) desiring to store values 
in arrays until we’re ready to 
print them out. (Actually we 
could arrange the output so we 
wouldn’t have to store it but 
you'd miss some of the fun.) In 
structuring this problem we 
would first set the value of 
YEARS which sets the first N 
value. This would be the outer 
loop. Next we would pick a 
loan value (P) and hold it con- 
stant while we run through a 
bunch of interest rates, the lat- 
ter being the inner loop. I pro- 
pose to use a technique to in- 
itialize the values of YEARS, 
PRINCIPLE, and. INTEREST 
and then bump them up the 
desired increments each time 
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we go through a loop using a 
loop counter to perform the 

right amount of calculations. 
_ Astudy of the specs show the 
number of tirnes we go through 
each loop to be, 


YEAR loop = 5 
PRINCIPLE loop = 51 
INTEREST loop = 15 


- With all of this grand plan 
in memory (yours) we can take 
a first cut at the coding. 


Col->1 567 72 
WRITE(IO, 1000) . 
YEARS = 5 

DO 120 L = 1,5 

YEARS = YEARS + 5 
WRITE(IO,1001) YEARS | 
N = YEARS * 12 


J = 1,15 
R + DELRATE 
R/ 12. 
M()) = (P*I)/(1. - (1. + 1)**(-N) 
100 CONTINUE 
WRITE(IO, 1002) P, M 
110 CONTINUE 
120 CONTINUE 


onle= ~ hw >= ee) 
Hy Onn 


| 


Now go back to the front — 


section and write, 

REAL M(Ii5), I 

INTEGER YEARS 

DATA DELRATE / 0.5 / 

After this you can go to the 
bottom section and write the 
input and output formats: 
1000 : FORMAT(IH1, 20X, ‘MONTHLY 

MORTGAGE PAYMENTS’) 
1001 FORMAT (1X, 20X, ‘FINANCED 
OVER’,12,‘YEARS’//) 
1002 += FORMAT (1X, F7.0, 3X, 15F7.2) 
By the way we've left out a lit- 
tle line of output which we'll 
pick up later to illustrate a 
- point. OK, now that you’ve 
followed the program on 
“blind faith” let’s go back and 
discuss various items within it. 
Building The Front Section 
The first thing to discuss are 
the words REAL and_ IN- 
TEGER that we put in the 
front section. A general rule in 
Fortran is that any symbol, 
character, word, etc., beginn- 
ing with I, J, K, L, M, andN 
are automatically integers or 
what you think of in BASIC as 
whole numbers. 

The other symbols beginn- 
ing with A through H and O 
through Z are used for floating 
point numbers or those having 
decimal points. As you have 
figured out by now, we can 


override this convention by | 


“declaring” at the beginning of 
the program that certain 
variables are not integers as 
their symbols indicates (M and 
I in our program) but should 
be treated like real numbers 
with decimals. Conversely we 
can declare standard floating 
point symbols (like YEARS) as 
an integer and not use any 


decimals witn it. —_ 
Notice in the form of declar- 
ing REAL and INTEGER that 
there is a comma(,) between 
each item and nothing at the 
end of the line. This is typical. 
If you should put a comma 
after the last item, the com- 
piler would expect another 
item and bomb-out. 
Normally, if we wanted to 
declare an array as we do with 
the M symbol, 
write: 
DIMENSION M(I15) 
just like the DIM in BASIC. I 
assume you know enough 
about the programming to 
realize that an array declara- 
tion like that above is just a 


way of telling the compiler to 


save 15 pigeon holes because 
you may have up to 15 
numbers to save or store for 
later use. 

The data statement can be 


we would. 


are used, 


RAINBOW COLOR 
DISKETTES | 


AVAILABLE IN 10 COLORS 
FOR EASY FILING & IDENTIFICATION 


100% Box of 10 Bulk* 

Certified Error Free 514” SS/IDD ........ $26.95 $24.95 

Timeless 51%4”’ DS/IDD ........ . $31.95 $29.95 
Warranty 


RAINBOW. PAK = Blue, Green, Yellow, Red, Orange 
BUSINESS PAK = Navy, Tan, Gray, Brown, Burgundy 


FREE CLEAR PLASTIC BOX! 


Add $2.50 Shipping and Handling. 
CA Res. Add 6% Sales Tax. 
| * 5 Boxes or More 


619/247-4276 


SEND CHECK OR MONEY ORDER 


S & A INTERNATIONAL 


P.O. BOX 772, VICTORVILLE, CA 92392 


used ftor..a variety Of purposes 
but generally is used to in- 
itialize symbol values. We 
elected to put the percentage 


increment (DELRATE) in as a © 


data statement to illustrate the 
form and the procedural use 
which is significantly different 
than in BASIC. In Fortran the 
word DATA is followed by one 
or many symbols which are 
followed by the data values 
enclosed in a pair of “slashes” 
(/---/). When multiple symbols 
each must be 
separated by a comma (,) and 
the multiple data values also 


separated by commas. It isim- ~ 


portant to note that for each 
symbol there must be a data 
value or the compiler will 
bomb-out again. (You do not 
have to do a bunch of READs 
like in BASIC to load the data 
values into an array. This 
automatically is done at the 


WARRANTED INTEGRITY 
INCREDIBLE VALUE 


°6 Year Warranty 


e 100% Certified Error Free 


e Satisfaction Guaranteed 


5%" 


Diskettes with Hub Rings. 


* Per Diskette — Quantities of 50 or More Boxed. 


Single. Side, Single Density . 
Single Side, Double Density 
Double Side, Double Density . 
Reversible, Double Density 


_ Bulk diskettes, with en velopes 
deduct 5¢ per diskette. 


Similar savings on 8 inch quad density and 
special format diskette. 


10% Surcharge for quantities less than 50 diskettes. 


SF werner rosie re. ( 
(Michigan Residents, Add 4% Sales Tax) 


Shipping and Handling $3.00 per 50 or Fraction Thereof. 
Precision Data Products 


(616) 452-3457 © Michigan 1-800-632-2468 


P P.O. Box 8332, Grand Rapids, MI 49508-0332 


Outside Michigan 1-800-258-0028 


run time.) You can put data in- 
to arrays with the DATA state- 
ment also. 


Let’s use for example we 


want only the interest rate (R) 
in our program computed for 
four odd-ball values instead of 
the very convenient 42% in- 
crements. Let’s say 7.93%, 


Baja Buggies (d/c) At 
Chicken (d/c) At 

Bug Attack (d/c) At 
Match Racer (d/c) At 
Gamma Soccor (a) At 
Embargo (rom) At 
Firebird (rom) At 

K-Razy Shootout (rom) At 
_ Canyon Climber (d) At 


SOFTWARE 


CLEARANCE SALE 
Any 3 for $45. 


Jawbreaker (d/c) At Genetic Drift (d/c) At, Ap 
Apple Panic (ay at David Midnight Magic (d) At. Ap 
Track Attack (qd) At Sky Blazer (d) At. Ap 
Labyrinth (d/c) At Choplifter (a) At, Ap 

- Stellar Shuttle (d/c) At Serpentine (d/c) At. Ap 
Night Strike (rom) At Seafox (d) At. Ap 
Droids (rom) At AE (d) At. Vic 


Raster Blaster (d) At. Ap 

Serpentine (rom) Com, Vic 

Seafox (rom) Com 64 

Crush, Crumble & Chomp (d/c) AtComVic 

Enjoystick (Acc) At, Com, Vic 

Temple of Apshai (d/c) Com, Vie 
“Upper Reaches of Aps (d/c) At, Com 

Astroblitz (rom) Vic | 

Monster Maze (rom) Vic. 


6.40 7/0, 1U.040 7/0, ana 
12.385 % . First we'd declare an 
R array of four followed by a 
DATA statement and use the J 
loop counter for the R array. 
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e Unlimited vocabulary 
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The additions to the program 
would look like: 
DIMENSION R(4) 
DATA R/ 7.93, 
8.45, 10.625, 12.385/ 
The program coding would 
be changed to look like: 


END 
-A word of caution; if you 
should ever write into, for ex- 
ample, the R(1) symbol, the 
data stored will be that value 
if you ever send the program 
back to re-initialize the data 
array. Think of it as a way of 
preloading values once and the 
only way you can get back to 
them is to re-run the whole 
program just to be safe. _ 
Here comes one of the more 
messy ones to implement; easy 
to understand but hard to im- 
plement, namely COMMON. 
Common is a bunch of two sid- 


ed pigeon hole storage loca- _ 


tions to pass data from the 
main part of the program to a 
subroutine. You may elect to 
use that method or the 
subroutine argument method. 
_ [really have a hard time justi- 


fying subroutine arguments 


over common. Subroutine can 
be compiled independently or 
may already exist on the system 
so it would be pointless to try 
for the common. 


In BASIC there is no COM- 


MON; you must limit yourself 


to using the same symbols 
anytime you GOSUB. In For- 
tran using COMMON you can 
change the symbol names bet- 
ween the calls or not. I still like 
to imagine the big two sided 
pigeon hole storage locations 
with the main program name 
taped on one side and 
subroutine names taped on the 
other side. The number that is 
put into one end is the same 
value at the other end; the 
name may be different. You’ve 
probably gathered that the 


_ pigeon hole concept implies 


that COMMON procedures 


are position sensitive just like it 
was in 


the subroutine 
arguments. (As with the 
subroutines, the reality is that 
you only pass the starting ad- 
dress of the variable or array.) 

Let’s go back to our 
SUBROUTINE BURP where 
we passed A, B, C, X, Y, and 
Z back and forth. If we’d used 
COMMON the program form 


would look like: 
COMMON A,B,C,X.Y,Z 


CALL BURP 


END 
SUBROUTINE BURP | 
COMMON D,E,F,U,V,W 


RETURN | 
Usually, we call subroutines 
and force our input into its for- 


mat as the routine is available | 


from some standard source and 
does just what we want it to 
do. Why reinvent the wheel 
when the one available was 


developed by experts and is 


probably very efficient com- 
puter time-wise. Usually stock 


routines from the computer 


SOFTWARE SUPER SAVINGS 


Apple - -Atari-IBM-Com64 
124 24 BANKSTREET WR. 49. 99 6 


124 CASTLE WOLFEN. 
1234 ENCHANTER 


19.99 
35.99 


12 GRAPHIC MAGICIAN 42.99 
124 HOME ACCOUNTANT 47.99 
124 KNIGHTS DESERT 27.99 
124 LODE RUNNER 9 
1234 PLANET FALL 
2 Q-BERT | 7. 
12 RANA th DRIVES 
37.9 


1 SARGON 


1234 SNOOPER. TROOPS 


124 TAX ADVANTA 


1294 ULTIMA III 
1234 WITNESS 
12 ZAXXON 


GE 


1234 ZORK 1,2,;,3 EA. 


DISKS 


ELEPHANT 


MAXELL 


12 SSSD $17.99/10 


23 SSDD 


$21.99/10 — 
3 DSDD  $26.99/10 


$27. 99/ 10 
$39.99/10 


P.O. BOX 569 
The Computer €xpress pFEpT 14 


alae AOC TROY, Mi 48099 


MASTER CARD/VISA/CHECKS/MONEY CRDERS/COD ACCEPTED 


SHIPPING: US $2 CANADA $6 FOREIGN $10 


MICH ADD 4% TAX 


_ First title 
OVER’ 


cient if they do the task that 


- needs to be done. 


There are some other items 
as EQUIVALENCE where 
you can set one item or array 
equal to another one and save 
on program. space re- 
quirements but you can study 
that in one of those detail texts. 

Now for the final part and 


most difficult to get just right, — 


the bottom or output section. 


Building The Bottom Section | 


As I said earlier the bottom 
section contains the write 
statements and the form or for- 
mat statements of those output 
statements. In our program we 
had three (3) write statements. 


_ Each presented a slightly dif- 


ferent format; one a straight 


print of a title, one a print of 


a title plus data, and one an ar- 
ray output. All did, however, 
fall into the same form, i.e., 
the word WRITE followed by 
the logical unit number to be 


written to and the format label — 


number, both enclosed in 
brackets; and then the 
parameter(s) to be written out. 
An example of this is: 

WRITE(IO,1001) YEARS 

(Remember we set the IO 
equal to the output logical unit 
number in our program.) In 
our program we know that this 
would write out the value of 
years financed on the second 
line, but we want the value 
stuck in between some words, 
so here’s what happened. We 
put the label number (1001) in 
column one to five. Then the 
word FORMAT in column 7. 
- Then enclosed in brackets we 
specify: 


First character (printer line — 


control) = 1X 
Skip 20 spaces = 20X 
= ‘FINANCED 


_ tage rate (R). 


YEARS =12 
Second title =“YEARS’ 
Skip two lines = // 

When typing in the pro- 
gram, each time is separated 
by commas (,) except slashes (/) 
which are also separators and 
the final statement looks like 

is: 
1001 FOR-MAT 
(1X,20X,‘FINANCED 
OVER ’,12, YEARS’//) 

This format stuff is actually 
easy; it just takes concentration 
on details to get it done correct- 
ly the first time. The “pros” 
usually make a couple of 
mistakes but they’re easy to 
find and fix. 

There are many other for- 
mat forms. The floating point 
in our 1002 format is 15F7.2. 
This means that we'll print out 
15 numbers in a floating point 
(F) form having a total of 7 
digits with 2 digits after the 
decimal point. If we would 
have wanted to skip two spaces 
between each number we 
could have written 
15(2X,F7.2) instead. 

The only other descriptor 
that gets a lot of use is the “A” 
which handles what they call 


Hollerith characters. I call it 


the alphabet descriptor 
because it’s the form you use if 
you write-out a computed let- 
ter. Beyond this you ought to 
look at one of those text books 
for the many other forms. 
Earlier I mentioned that we 
left out a line of coding. I just 
know that you have noticed 
that we need to label each col- 
umn on our output with the in- 
terest percentage used:in the 
calculations. By now I know 
that you’re way ahead of me 
but I'll show you anyway. First 
we'll need to save that percen- 
To do this 


NEW! /! M-ee000 } 


SINGLE BOARD a 


FEATURES: 


16 bit Motorola 68000 CPU operating at 5 MHz or 10 MHz, 20K of on 
board fast static RAM, 16K bytes of on board EPROM space, 7 
autovectored interrupts, 3 memory /device expansion buses, 2 serial 
communication ports (RS-232 C), 16 bit bidirectional parallel port, 
5-16 bit counter/timers with vectored interrupt and time of the day 
clock. On board monitor allows to download and debug programs 
generated on APPLE II, TRS-80 and CP/M using our M68000 Cross 


Assembler. 
PRICE: 


M68K Bare board with documentation 

M68MON monitor & mapping PROM’s 

MD512 Memory/Disk Contr. (Bare Board) 
_M68KE Enclosure with P.S. and card cage 


M68000 Cross Assembler . 
M68K Documentation only... 


Shipping & handling (Domestic)... 


(foreign)... 


CALIFORNIA RESIDENTS ADD 6% TAX 


Educational 
Microcomputer 
Systems 


EM 


P.O. BOX 16115, IRVINE, CA 92713 


(714) 553-0133 


convert it to an array R(J). At 
the front end, we write 
DIMENSION R(15) 
Then just after the “100” label 
and before the big write-out 
statement, we make a 
statement, 
IF(K.EQ.1)WRITE(IO, 1003) R 
and have the format statement 
to look like, | 
1003 FORMAT(1X, 10X, 15F7.2 /) 
which should align with the 
columns and leave one line 
space before the big list. Notice 
how easy it was to align by just 
adding the 3X,F7.2 of Format 
1002 and calling that 10X in 
1003. You probably want to 
identify the row so within the 
10 character spacing you can 
write the 7 character word, 
percentage as, | 
1003 FORMAT(1X, 
"PERCENTAGP’, 3X, 15F7.2 
!) 
Now we have the perfect pro- 
gram! (joke) _ 
The Recollect 

As I grew up on Fortran on 
main frame computers I took 
for granted that all computer 
languages were fast in execu- 
tion. Then I ran into BASIC on 
the home computer. I just ac- 


cepted it because the only 


alternate was Assembly lan- 
guage which I only use as a last 
resort. The problem is not the 
Fortran or the BASIC language 
but the word “compiled” 
language. Fortran is compiled 
or converted into machine 
language which runs very, very | 
fast. Normal BASIC looks up 


‘the machine language each 


step of the way. You might say 
it is continually compiling your 
program as it crunches the 
numbers. This is what slows it 
down. It has it’s advantages 
but speed is not one of them. 
I discovered FORTH for my 
home computer. FORTH is a 
compiled language and runs at 
machine language speed. I’ve 
actually had to put delay loops 
in some of my routines to slow 
them down. The word compil- 
ed means so much in so many 
applications. 

Up to FORTH I dreamed of 
the day when they’d come out 
with a Fortran compiler for my 
home computer that I could af- 
ford. I was thinking of the 
speed of execution and not the 
form of the equations. In re- 
cent days, BASIC compiler has 
marketed. Several look real 
good. With this facility 
available, the main objection 
of Fortran over BASIC will 
disappear. As you noticed I’m 
sure, the form of the program 
between BASIC and Fortran 
are not significantly different, 
in fact, for practical purposes 
they’re identical. I figure in the 
future with all of the compilers 
available, it’ll just become per- 
sonal preference what lan- 
guage you use because speed 
and efficiency will be handled © 
in the compiler itself. ® 


~ New Atar! 
-~ Modem 


Microbits Peripheral Pro- 
ducts announces _ their 
MPP-1000C Modem, a new 
peripheral attachment for 
Atari computers. The Modem 
works on all Atari computers, 
eliminates the need for an 
Atari 850™ Interface Module, 
and retails for $149.95. 

The MPP-1000C Modem 
provides an auto answer/auto 
dial capability along with a 
direct connection to the phone 
line. The Modem includes a 
free one hour subscription to 
_“The Source,” a free Com- 
puServe DemoPak, and a one- 
year warranty. The Modem 
connects to the Atari Joystick 
Port. 

The Modem includes 
sophisticated smart terminal 


software on a cartridge which 
supports XMODEM Protocol, 
provides ASCII/ATASCII 
Translation, allows transfer of 
files larger than memory, 
allows Upload/Download of 
Text and Programs, provides 
multiple buffers, and is written 
in machine language. The soft- 
ware also provides for off-line 


editing, a variable baud rate, 


parity options, and full/half 
duplex. 

For further information on 
the MPP-1000C Modem, con- 
tact Microbits Peripheral Pro- 
ducts, 225 West Third Street, 


Albany, Oregon, or telephone 


503-967-9075 (John Wiley), 
503-926-3754 (Larry Clausen). 

Mention that you read it in 
Computer Shopper. e 


APPLE COMPATIBLE DISK DRIVE 


$170 + $3 p&h 


-%» height (46 mm) -40 track 
-direct drive 


-Sub CONNECTORS 


at Realistic Prices 
| MODEL/NO. WIRES 18 10.24 
SOLDER CUP TERMINATIONS 
1.80 17 


SO9P 
SO15P 
S025P 
SO9S 
SO15S 
S025S 


SD9P-PC 
SD15P-PC 
SD25P-PC 


SO9S-PC 
$D15S-PC 
SO25S-PC 


PC MOUNT RIGHT ANGLE 

SDOP-RA 

SO15P-RA 

SD25P-RA 

SO9S-RA 

$O15S-RA 

SO25S-RA 

SDC-9G_ (Pac of 2) 270 


- $0C-15G WPacof 2) 2.90 
SDC-25G (Pac of 2) 3.10 


rot FREES00-343-1455 
MASS. RES. 617 682-6936 _ 
ECON Oot: 
CLASSIFIED 
RATES 
17 CENTS 


PER WORD 


-positive disk lovk fever — : 


JLP COMPUTERS 
P.O. Box 6772 Warwick, RI 02887 (401) 821-6674 


Ri res. add 6% 


-cable and cabinet | 
-six month warantee 
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@ SANYO @ 
MBC 550 PC, 128K, Free software, more 
ere ee seneeeneeeeee STS 
@ APPLE @ 
IIE Starter system ........... $1325 
@ FRANKLIN @ 
m ACE 1000, 64K .............. $749 


ACE 1200, OMS ............ $1599 


@ NEC @ 


-@ IBM PC @ 


+ 

", 

ry 
GCWIS 


8201A Portable PC, 16K Expandable to 
96K, extra ports for add-ons, 14 free soft- 
ware programs, fits into briefcase $625 


PC 64K, 2 Drives ........... $2250 
Monitor Grn - Hi Res ......... $319 
Colet: [scayccteasseatee es $279 
a | $418 


by Jeff Brenner — 


Name: 

Solo Flight 
Requirements: 
Cassette-48K RAM 
Diskette-48K RAM 

1-4 Joysticks 
Price: 

$34.95 | 
Manufacturer: 
MicroProse Software 
10616 Beaver Dam Road 
Hunt Valley, MD 21030 


A flight simulator has been 
a popular application for per- 
sonal computers for several 
years. While many flight 
simulator programs have been 
created for the Apple and other 
popular machines, relatively 
few exist for the Atari. Of 


these, Solo Flight ranks among 


the best. 

Before you start flying, you 
can choose to practice or to 
play the Mail Pilot game. The 
practice flying option lets you 
take off, navigate the plane, 


and then land. Youcanchoose 4 


clear weather, windy condi- 
tions, landing practice or in- 
strument flight rules (low 
clouds) with this option. The 
Mail Pilot game requires that 
you load your plane with mail 


and your calculated fuel re- 


quirements, taking into con- 
sideration the weight of the 
load, and then deliver to 
various airports. This game has 
student, private, senior and 
command pilot levels. You can 


@ VIDEO MONITORS @ 


-@ AMDEK @ 
300 Amber ................. $149 
Green... ccc eee eee $139 
310A for IBM PC ............ $169 | 
—@ BNC e 
BMC 12 AUW ................ $85 
BMC 12 EUN (hi-res) .......... $120 
BMC 12 Amber .............. $118 
BMC 9191 Color Composite ... .$228 
@USie | 
P1-3 12” Amber (hi-res) ....... $120 
P1-2 12” Green (hi-res) .......$120 
@ PRINCETON GRAPHICS e@ 
~~ PGS HX-12 (hi-res color) ...... $458 


PGS SR-12 (hi-res color), April ‘84 $659 
PGS Max-12 (monochrome) ....$199 


@ GORILLA @ 
Hi-Res Green 12” ............. $88 
Hi-Res Amber 12" ............ $95 


choose one of these difficult 
levels. Both the practice flying 
option and the Mail Pilot game 
let you fly in one of the follow- 
ing states: Kansas, Washington 
or Colorado. Kansas is a good 
state for beginners since the 


land is flat, and two of the air- — 


ports have long, wide run- 
ways. Colorado, on the other 
hand, has its airstrips tucked 
within the Rocky Mountain 


Valleys, and is therefore in- 


r 


INVITATIONS TO BID WELCOME @ P.0.’S ACCEPTED FROM SCHOOLS & UNIVERSITIES @ MOST ITEMS IN 
CERTIFIED CHECK @ MONEY ORDERS @ VISA @ MASTERCARD @ APO OK @ CAL. RESIDENTS +6% TAX @ SHIPPING MINIMUM $4.50 FIRST 5 POUNDS 


tended for more advanced 
players. 

When the game begins, a 
map of the state and _ its 


airstrips is displayed. Upon - 


completion of a flight from one 
airport to another, the route 
taken is plotted on the map so 
that you can compare it with 
your original flight plan. Next, 
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Solo Flight Review 


the flight screen is displayed. 
This screen is divided into two 
parts. The top half basically 
displays a cockpit view, but 


_ with the actual plane visible. 


Airports are black, farms are 
grey, and mountains are 
white. Occasionally, a white 
VOR tower appears, which 
emits radio signals used for 
navigation. The bottom half of 
the screen contains various 
flight instruments. These con- 
sist of an altimeter, a speed in- 
dicator, a horizon/attitude in- 
dicator, a throttle indicator, 
and four digital readouts of 
pitch, degrees of flaps, direc- 
tion and climb. A fuel gauge, 


Continued on 154 
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FLIP YOUR DISK .. . use both sides. 
Double. your disk storage space instantly 
with a Disk “Flip it’’ Kit. Kit includes 
5%" plexiglass locating template and a 


ings and protects disks . . 


special punch for cutting both the syn- 
chronizing hole and write protect notch. | 
Soft plastic waste catcher collects punch- 
. . complete 
with instructions ......... 


$7.95 


PLUS $1.50 Shipping and Handling 


@ PRINTERS @ 

— e@CiitHe — 
8510 Prowriter (AP) (120 CPS) .$358 
1550 Prowriter 2 (P) (120 CPS). $659. 
8510 SP (180 CPS) (10") ...... $599 


1550 SP (180 CPS) (15") ...... $859 


Starwriter (F10-40PU) ........ $1099 
Printmaster (F10-55PU) ......$1399 
Gorilla Banana (50 CPS) .......$187 
(All C-Itoh comes with free pack of paper) | 
@ OKIDATA @ | 
82A (120 CPS)......... tcc $348 
83A (15” Carriage) (120 CPS) . .$568 
SAP (15") (200 CPS) .......... $998 
92P (160 CPS) ............... $417 
93P (15”) (160 CPS) .......... $699 
@ EPSON @ 
FX-100 (15” carriage) ......... $724 


@ STAR MICRONICS © 
Gemini 10X (120 CPS) 


~ Gemini 15X (15” Carriage) ..... $398 


@ DISK DRIVES @ 
Micro-Sci ee er ene $198 


GOLDEN WEST SYSTEMS31942 OAK HILL @ PORTERVILLE, CALIFORNIA 93257 @ (209) 539-2107 
“YOUR FRIENDLY COMPUTER AND SUPPLIES SOURCE” 


°°. €¢ = @ © # & © @ @ @ eg @ @ ee *£ 8 @& © 


ELEPHANT DISKS - SS/SD 


EMS #5 - DS/DD (IBM) .. . .$28.95/10 


STOCK @ SHIP WITHIN 24 HOURS 


INTELEX COMPUTER WARES 
147 5S. BRENTWOOD TERRACE 
MOUNT LAUREL, NJ 


08054 


(LIFETIME GUARANTEE) uy.) 


ie i, 


$179.50/100 


EMS #2-SS/DD ......... $23.95/10 
@ IBM PC ADD-ON ACCESSORIES @ 
@ QUADRAM @ 


@ AST RESEARCH @ 
Six Pack +  ............. Lhe 


eee eoeaevavneevescunsn eee ee 


© GAK UPGRADE @ 
G4K Memory ..............--- 


@ KEYTRONIC @ 
PC KEYBOARDS - UPGRADE YOURS 
RBS150 i scscncdescsancesies $188 
KB5151 Deluxe (4/84) 
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also displayed. You can change 
the throttle, lower or raise the 
~ landing gear, apply brakes, 
control the flaps, and create a 
simulated emergency equip- 
ment failure with single 
keypresses. 
The takeoff is relatively 
easy. As your plane rises above 
the runway, its shadow ap- 
pears to add to the realism. 
During flight, you can use the 


Solo Flight Review | 
Continued from page 153 


status lamps, two VOR 
readouts and an ILS system, 
- which tells the condition of 
your landing approach, are 


TYPWTR 


Turn your Com- | 
- puter into a 

Typewriter, User 
definable word processing type 
editing on the entry line. Multi- 
ple margins and tabs option. 
Word wrap option. Entry may 
be saved to disk. 
Nothing prints till you hit return. 
With printers that will back- 
space and print a single charac- 
ter at a time, the print head will 
move as you type — wonderful 
for filling in forms. $29.50 


Elliam Associates 
. 24000 Bessemer Street 
Woodland Hills, CA 91367 


(81 8) 348-4278 


- Brother HR-25P 
Letter Quality Printer 


$750 
See Page 86. 
e002 241- ese 


The Disk Labeller 


MI SCELLANED zi 
SEC aaa 8 count 


FEATURES: 
_ *AUTOMATIC LABELLING 
# *COMPLETELY MENU DRIVEN 
ES *INCLUDES 300 5" LABELS 


REQUIRES: 
64K APPLE II/II+/Ile* 
4 or EQUIVALENTS 
> *DISK DRIVE * PRINTER 


Peseaseriis! SPECIAL PRICE 


$59.95 © 


SEND CHECK OR 
MONEY ORDER TO: 


PRACTICAL SOFTWARE LTD. 


P.O. Box 64 Dept. CS, Pomona, NY 10970’ 
Phone: 914-425-1158 


ADD $3.00 SHIPPING & HANDLING 
N.Y. RESIDENTS ADD SALES TAX 


*APPLE II/I1+/Ile ARE REGISTERED 
TRADEMARKS OF APPLE COMPUTER, INC. 
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For only $95, Q/Cisa ready-to-use C compiler for CP/M. You get: 
complete source code for the compiler and over 75 library functions. 
Q/C is upward compatible with UNIX Version 7 C, but doesn’t sup- 
port long integers, float, parameterized #defines, and bit fields. 


Full source code for compiler and library. 

® No license fees for object code. 

® Z80 version takes advantage of Z80 instructions. 

e Excellent support for assembly language and ROMs. 

© Q/C is standard. Good portability to UNIX. 
Version 3.2 of Q/C has many new features: structure initialization, 
faster runtime routines, faster compilation, and improved ROM sup- 
port. Yes, Q/C has casts, typedef, sizeof, and function typing. The 
Q/C User's Manual is available for $20 (applies toward purchase). 
VISA and MasterCard welcome. 


5266 Hollister 
WORKS So eae CA 93111 | 
(805) 683-1585 


ac, CP/M, Z80, and UNIX are trademarks of Quali Computer § tems, tal 
: Research, Zilog, Inc., and Bell Laboratories especies ou ue ia 
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“VOR meters to find your 


vanced 
_ becomes more difficult; as in- 


destination points. On the ad- 
skill levels, flying 


struments can malfunction and 
serious weather conditions can 
develop. Flying through a 
cloud will block out your 
display screen, and you will 
have to navigate with your in- 
struments until you are 
through the cloud. The landing 
is the most difficult part and 
success requires much practice. 
If you land at too steep of an 


angle, or if you miss the run- 


way, the game will end. 
Carelessness, as in forgetting to 
lower your landing gear, can 
also cost you the game. 


The  three-dimensional 
graphics on the top half of the 
screen are attractive and 
realistic during takeoff and 
landing. They are most ap- 


It’s the age-old struggle of 
man versus machine with two 
of the newest Atari home video 
game releases: Robotron: 


2084:1and Berzerke. 
Robotron: 2084 takes the 


player into a futuristic world in 
which advanced robots have 
turned on their human 


creators, determined to destroy 


humanity. Robotron’s robots 
attack in waves, with different 
models of enemy androids in 
each wave. Players score points 
by destroying robots with a 


laser gun and by touching 


humans, thereby transporting 
them to safety. If the humans 


preciate when reac ing an 


airport as you see the actual 


_ landing strip approaching. You 


can turn your plane around the 


airport and see the entire 
display move accordingly. By 


using the arrow keys, you can 
instantly look out your left, 
right or back windows and see 
the appropriate view. During 
the actual flying, with the ex- 
ception of a passing cornfield, 


the screen is often dull. A. 


greater number and a more in- 
teresting array of ground sites 
would have made this program 
even more exciting. 


The instruction manual con- 


tains helpful takeoff and land- 
ing advice. It describes instru- 
ment flying, crosschecking of 


instruments and VOR naviga- . 


tion. The manual describes 
several types of approaches 


with helpful diagrams and’ 


are tagged by a robot, 
however, they become deadly 
to the player, and he must 
avoid them. 

Dual controls are a special 
feature of Robotron: 2084. The 
player must set both joysticks 


or controllers in a plastic 


holder included in the game 
package to use the left joystick 
for maneuvering while firing 
at the robots with the right. 
For a two-player game, the 
controllers are traded between 


players. 


The robots don’t get any 


friendlier in Berzerk, which 


uses built-in voice capability to 
) 


COMPUTER SALES 


2363 HWY 33 ROBBINSVILLE N.J. 08691 


.|. WE TRY TO HAVE THE 


FRANKLIN ACE 
PRO PACKAGE 
GEMINI 10X PRINTER & 
PARALLEL PRINTER 

CARD — 


ZENITH ZVM 123 
MONITOR 


COMPLETE SYSTEM 
$1475.00 


PKG. #2 
FRANKLIN 1200 
OMS SYSTEM 
GEMINI 10X PRINTER 
ZENITH ZVM 123 
MONITOR 
COMPLETE SYSTEM 
- $1800.00 


PKG # 
COLUMBIA PC 
1BM COMPATIBLE 


Multimate 
w/Hayes 1200 and Cable 
w/Quadram Quadboard 


w/256K 
. w/Okidata 93 and Cable 
Complete System 
$4995.00 


LOWEST PRICES! 


DISCOUNT PRICES ON EVERY THING 
FROM APPLE TO ZENITH 


GEMINI 10X 


| ZENITH ZVM 123 Bi ‘oovize $95.00 


- teaches you how to design your 


TOICTOICTCICCICOICIOIS CICTOHO CHO CI CIS CIC CIC SIC IST BICCIG CIC CIC CIC CIC ORI! SOO CIO CHOC 5 


NO SHIPPING CHARGE ON 
DISK OR DISK MINDER 


DISK MINDER HOLDS 75/5% DISK $17.50 
WABASH SS/SD DISK $14.80/10 DISK 
3M DS/DD $29.95/10 DISK 


co A PC 
IBM COMPATIBLE 


609- 259-8004 


CALL FOR ORDERING OR INFO. 


TERMS: WE ACCEPT VISA, MASTERCARD, CERTIFIED CHECK OR MONEYORDER. PER- 
SONAL OR COMPANY CHECKS; ALLOW 3 WEEKS TO CLEAR. PRICES AND AVAILABILITY 
SUBJECT TO CHANGE WITHOUT NOTICE. ALL PRODUCTS ARE NEW AND SHIPPED IN 
FACTORY CARTONS WITH MANUFACTURERS WARRANTY. | 


Compiete System 
$4395.00 


own approach. The in- 
struments could use a more ex- 
tensive description than is in 
the manual. Thus, you might 
have some difficulty in 
understanding them if you are 
not familiar with the ter- 
minology. Aside from this, the 
overall content of the 
documentation is very good. 

Solo Flight is an excellently 
designed flight simulator. In 
addition to being entertaining, 
this simulation is extremely 
educational, since the controls 
and outcomes of maneuvers 
are realistic. It is apparent that 
much effort has been put into 
the creation of this program. If 
you have ever had the slightest 
desire to fly a plane, you will 
find Solo Flight to be enjoyable 
and educational, as well as a 
safe alternative! @ 


Killer Robots On Loose 


alternately taunt and warn the 
player. The setting is an em- 
pire of mazes in a world of 
robots. The object of the game 
is to destroy as many robots as 
possible as the player moves 
through the mazes. . 

A special hazard in Berzerk 
is the invincible Evil Otto, a_ 
bouncing, smiling face that 
follows the player, seeking to 
destroy him. 

The built-in voice feature in 
Berzerk provides cues | = 
players, such as a loud, 


~ truder alert” when Evil Olek is 


about to make an appearance. 
But escape to another maze 
before all the robots are 
destroyed, and the voice 
challenges, “Chicken! Fight 
like a robot.” 

Points are scored in Berzerk 
when robots are destroyed. 
Special bonus points are 
available when the player does 
“fight like a robot’ and 
destroys all robots in a maze 
before moving to the next.- 

Berzerk was made available 
in January for the Atari 
5200(tm). Robotron: 2084 was 
also made available in January 
for the 5200 SuperSystem and 
all Atari Home Computers for 
$40.95. and $49.95 
respectively. | 

For more information write 
or call Atari Incorporated, 
1265 Borregas Ave., P.O. Box 
427, Sunnyvale, CA 94086, 
(408)745-5312. | 

Mention that you read it in 
Computer Shopper. @ 


Public Domain CPIM - 5” & 8” 
Osborne-1 5” COOUG now-40 sides 
0Z1 a 5” SIDE $5, 10/SIDES $40 

| can xfer most 8” disks TO 5° FMTS 

8” SIGM/150 sides CPMUG/91 sides. 

8" SIGM & CPMUG $6/vol or 12/$50 | 
5" BCBLUE 45vols $5/vols 10/$45 >? 
5” FMTS Many (40) - DS $6 
SASE/CK-CCR/All PPD USA. CRAMER, 
Box 28606, Columbus, OH 43228-0606 
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(108) APPLE, SOFTWARE, 
PERIPHERAL 


APPLE PASCAL 1.13 months old. In 
original package with all disks, 
book, manuals and four public do- 
main disks. ~ $150. 
305-466-5515 or Box 4150, Vero 
Beach, FL 32964. 


INTRODUCING CAT-CARD 
Print your disk catalog plus much 
_ More on a 3x5 card. The card is held 
to the disk jacket ina see-through 
card holder. CAT-Card also sorts by 
file name. Req. Apple I! +/lle, one 
drive, printer. Unprotected for back- 
up! $39.95 ppd incl. starter supply 
of cards and holders from Hollow- 
point Software Systems, Dept. C, 270 
N. Second St., Box 80, Freeland, MI 
48623. MI res add sales tax. 


BLUE BOOK $15, OKIGRAPH II $35 
unused. 404-636-8080. 


GENUINE MICROSOFT Ram- 


card...$40. Ali Mint, sealed. LEN, 
212-777-4353. * 
APPLE Ill 
SOFTWARE 
AT :10-20% OF LIST! 
: i (List) Sale 
STATE OF ART 


_ Accounts Receivable dae . $75 
Accounts Payable ($595) ....$75 
Budget & Fin Rpt ($595) ..$75 
GREAT PLAINS HARDISK _ 

Accounts Receivable ($395) .$75 
Accounts Payable ($395) ....$75 
Inventory ($1000) .......... $100 
PASCAL ($250) 
PSF REPORT ($125) 
SENIOR ANALYST ($350) ...$50 


VISICALC Ill ($250) ......... $50 
VISICALC (Advanced) ($400) .$75 
202-342-0999 


FREE CATALOG of public domain 
software. Over 50 volumes to 
choose from. Send one stamp to 
Scott Egner, Box 657, Smithton, IL 
62285. 


Chris,. 


64K Dynamic Ram ICs @ $5.37 


Prime Parts and Guaranteed, (150 ns) 
MICROPROCESSORS UNLIMITED 
(918) 267-4961 
See page 75 for detailed ad 


| APPLE 9 TRACK 


COMPUTER SHOPPER, JULY 1984 


HI-RES 12 INCH MONITORS 
for Apple. Black & white, 20 MHz 
video band-width. OEM excess, 
never used, no case, separate sync, 
117 VAC. Supplied with matching 
power and interface connectors, 


_ full manual & Apple hook-up info. 


Tested. 30 day guarantee. 21 
pounds UPS plus $49. Electrovalue 
industrial, Box 376-C Morris Plains, 
NJ 07950. 201-267-1117. 7-66 


APPLE BUILDER 


KEYBOARDS 


83 key HI-TEK keyboards, never 
used, 1981 manufacture. Full ASCIl 


_ including upper/lower case, all con- 


trol characters. CAPS-LOCK and 


REPEAT keys, numeric pad, simple | 


mods for right & left arrow, 5 extra 
function keys (great for SCREEN 
WRITER) parallel output, positive 
logic, strobe, buffer, self test mode, 
uses +5 volts at only 106ma. 
Custom case available. 90 day war- 
ranty unmodified. Keyboard $35. 
Package of documentation in- 
cluding schematics, Apple hook-up, 
left & right arrow mod. instructions 
and parts & 4 foot cable kit $5. 
Spare custom CPU/ROM $4. UPS in- 
cluded or add extra for 5 pounds 
mail or Blue Label. Call or send 
stamp for detailed spec. sheet. 
Electrovalue Industrial Inc., Box 
376-CS, Morris Plains, NJ 07950. 
201-267-1117. 7-66 


APPLE BUILDERS 
Kit of all connectors, speaker and. 
crystal, $33. Upper/lower case video 
character generators, $20. Specify 
US revision 7 or 8 or Asian Clone 
version. UPS $2 per order. IC sets, 


monitors, keyboards, power sup- | 
plies - request full flyer. Electrovalue 


industrial Inc., P.O. Box 376-C, Mor- 
ris Plains, NJ Q7950. 201-267-1117. 

7-67 
CROSSTALK for CPM brand, new 
cost $186, sell $125. Call collect: 
805-569-0256. 


TAPE 


EXCHANGE DATA AND PROGRAMS WITH 
MINICOMPUTERS AND MAIN FRAMES 


DATA COLLECTION 
DATA REDUCTION 
MAILING LISTS 
GOV'T TAPES 

DISK FILE BACKUP 


EXPAND YOUR APPLE TO READ/WRITE 
9-TRACK MAG TAPES IN STANDARD 
ANSI-IBM 800 BPI (NRZI) FORMAT. 


: i as 
WANGCO/PERKIN-ELMER /CIPHER H CONTROLLER ALONE: 


Model 1025 drive and Apple 
controller. 800 bpi. 25 inches-per- 
second standard full size 9-track 
drive. Handles any size reel of tape 
up to the largest size used 
(10.5inches) ..... 


Tape drives compatible 
with the Electrovalue © 
controller are made by 
Pertec, Wangco. Perkin- 
Eimer. Kennedy, Digi- 
Data, Cipher etc. Con- 
troller, system cables. 
full documentation, 


. $3000 | 


ANOTHER ELECTROVALUE BARGAIN demo and diagnostic 
These drives are brand new excess inven- | software are available 


tory froma major OEM. Currentlist price | separately 


of the drive alone is more than $4500! 


PERTEC 7000 SERIES drive and Apple controller. 800 bpi. 
18.75 inches-per-second standard small size drive. 

Same capability as large drive but slower and takes 

up to 7 inch reels of tape maximum ...... sistas Com gto Wel 


FULL BROCHURE: Please write or call for our full brochure describing the above products. 
associated software and documentation in great detail. 


ELECTROVALUE INDUSTRIAL INC. 


P.O. BOX 376-C 
MORRIS PLAINS, NJ 07950 


Formerly Electravalue industrial 


201/267-1117 


ca 
J 


- recreational, or 


DISKETTES for Apple & Commodore 
5%”, $13.88/10; Library holders 
$2. 35 ea. Visa, Mastercard. The 
Computer Station, 1-612-861-5529. 

| 7-55 


APPLE COMMUNICATIONS 
PACKAGE OFFERGREAT SAVINGS!! 


Everything you need to go online | 
‘ for only $159! This includes the 


premiere software package, 
TermExec, regularly $79.95, and the 
Networker modem from ZOOM 
telephonics, regularly $129.95. 30 
day satisfaction guarantee with full 
refund! Ask about other modem 


‘ prices including 1200 baud Anchor 


Mark XII for $288.95. Call now while 
supplies last! 617-862-3170. VISA, 
MC accepted. Exec Software, 201 
Waltham St., eeningien MA 02173. 

7-56 


SPEECH ON DISK 


Your Apple will talk without hard- 
ware or modifications of any kind! 


SPEAK UP! is an 8K ML utility that _ 


lets Basic programs talk in a 
scratchy monotone voice. Great for 
games! Text-to-speech makes it 
easy to use. Unlocked disk + in- 
structions $34.95, Visa/MC/Checks. 
Classical Computing, Inc., Dept. 
SP-1, P.O. Box 3318, Cnapet lll; NC 
27514. 7-85 


HAYES MICROMODEM and software — 


$150. Apple disk controller card 
$30. Both like new. Call Cliff, 
305-435-4302. 7-55 


CP/M PUBLIC DOMAIN. Modem 7xx 
program assembled for your Apple. 
Only $7 Postpaid. Specify Equip- 


ment. Send for our free list of CP/M °- 
- Public -Domain Programs. SOFT- 


HAUS, Box 4150-CO, Vero. Beach, 
FL 32964. 305-466-5515. 7-55. 
APPLE 9-TRACK TAPE DRIVES—800 
BPI, 7 inch at 18.75 IPS; 10.5 inch 
at 25 IPS. Write/call for detailed 


brochure. Electrovalue Industrial — 


Inc., P.O. Box 376-C, Morris Plains, 
NJ 07950. 201-267-1117. - 7-66 


—APPLE SOFTWARE— 
Prices up to 50% off retail price! Call 


or write K.W.H. Software Company | 


for free catalog. Specify business, 
— educational 
catalog. 5253 Fanuel Street, San 
Diego, CA 92109. 1-619-488-5253. - 


. Software - Books - Peripherals. 


DRIVES | 


~ 212-837-9235. 212-259-8896. 


WANTED: APPLE System Master 3.0 
and 3.1.1, original disks of con- 
tributed programs, obsolete demos 
and factory types. W. Smyth, Rt. 1 
Box 3, Monetta, SC 29105. 


PUBLIC DOMAIN APPLE SOFTWARE | 
A great way to own software at an 


affordable price. Well over 1000 pro- 
grams on 50 diskettes - 10 disks in 
each of 5 categories - Business & 
‘Finance, Games, Utility, Education, 
& Miscellaneous. $5 per disk + 
maximum of $2 for shipping and 
handling. Send $1 for catalog - 
refundable with order - $5 for 


master catalog on disk. Peel In- | 


dustries, P.O. Box 2112, Merritt 
island, FL 32952. 7-56 


(109) ATARI Computers 


for Sale 


“ATARI 800 w/48K, 810 disk drive, 
1025 printer, 410 program recorder, 
and 850 interface. Software includ- 
ed. $900 or B/O. Dave Segal, 
603-224-4118. 7-55 
RENT BEFORE you buy. Atari com- 
puter systems as low as $30 per 
month. Dacus Software, P.O. Box 
57-0309, Perrine, FL 33257-0309. 


7-55 
ATARI-810 drive owners. Write to 


back side of disks. No punching 
holes; no sticky tabs. How to install 
your own on/off switch in minutes. 
Also how to clean your disk drive 
heads professionally. SASE + $10 
to R.E.G., 3148 Hildalgo Dr., Orlan- 
do, FL 32806. 7-56 


MODEL Il, 3 - Drives CPM/TRS-DOS 


- Profile, Prowriter 1550 $2800. 
XTALK, CPM, etc. Info Systems, 
7-55 
32K RAM Boards $39.95, 16k RAM 
Boards $14.95, one only 52K RAM 
card $69.95. WICO TRACKBALL 
Mint in box $29.95. Fitkin Com- 
munications Company, 319-363-1191. 


(110) ATARI Software 
Peripherals, 
BUY/ SELL/ TRADE/ Atari software. 
Send your list or items wanted. N.C. 


Bates, 3208-B Chandler Street, El 
Paso, TX 79904. 3-54 


FREE ATARI. Now that ! have your 
attention, let’s trade software and 
conversations. Bob Brown, Box 


1387, Atascadero, CA 93423. 4-56. 


TENIPERATUIRIE 


VOILITAGIE 


PIRIESSUIRE 


8 CHANNEL, 8 BIT ANALOG TO 
DIGITAL CONVERTER WITH 
RS 232C INTERFACE. 


$249.00 


YOUR SENSORS AND THE SOFTWARE SCIENCE . 
MiCROTELEMETRY MODULE CAN PUT 8 CHANNELS OF ANALOG 
DATA AT YOUR COMPUTER OR TERMINAL S FINGERTIPS. _ 


Simepce ASCII COMMANDS CONTROL THE MICROTELEMETRY 


MODULE. 


RAW DATA, VOLTAGE OR SOFTWARE SCIENCE'S EXCLUSIVE 
“TEM PACH EAP” LINEARIZED TEMPERATURE OUTPUT. 


SENSORS, POWER SUPPLIES AND ACCESSORIES ARE ALSO 
AVAILABLE. CALL OR WRITE FOR CATALOG AND APPLICATION 


SOFTWARE SCIENCE 


(513) 561-2060 


P.O. Box 44232. CINCINNATI, OHIO 45244 


$25, FIXING PROGRAMS *Run 


~ copies of. RAM- -protected car- — 


tridges. *$10 per cartridge. Masao 
Kishore, 202 Courtney Place, Green- 
ville, NC 27834. 919-756-6868. 5-54 


RENT, PURCHASE, OR EXCHANGE 


ATARI SOFTWARE. Save up to 25% 
and more on retail. Save money and 
at the same time enjoy ail the 
popular programs. We offer the 


. most value for your money on soft- 


ware for the Atari Home Com- 
puters. All software we offer is 
available for rental, business pro- 
grams as well as games and educa- 
tional software. We also purchase 
‘ised software and offer an ex- 
change program for software you’ve 
outgrown or no longer have a need 
for. Send $1 (refundable with order) 
for 25 page catalog and full details. 
Please specify system. Software 
Network Inc., 216 Glenview, 
Elmhurst, IL 60126. 312-279-1070. 

6-58 


ATARI SOFTWARE. Over 200 
original games and utilities with 
original packaging. Saga, Diskey, 
Blue Max, Shadow World, Zaxxon, 
Deadline, more. Send SASE for List. 
All games about $10 plus $1.50 
shipping. Ehab Eassa, P.O. Box 
29247, River Station, Rochester, NY 
14620. 6-55 


MACHINE LANGUAGE made EASY. 
With AMAC or MAC/65, EASY 
allows machine language program- 
ming using BASIC-like statements. 
Includes over 60 macros. Disk, 
$39.95. $2 shipping. Available FREE 
- BASIC MAGIC - ATARI programm- 
ing tricks. 301-236-4459. SUPER- 
ware, 2028 Kingshouse Road, Silver 
Spring, MD 20904. 6-55 


NAME BRAND SOFTWARE AT AF- 
FORDABLE PRICES. Specify com- 
puter. DACUS SOFTWARE, P.O. Box 
57-0309, Perrine, FL 33257. 7-55 


SCRAMBLER - The name says it all. 
Your Atari program written in 
BASIC can be scrambled so no per- 
son can read or change your pro- 
gram. Available on disk for $7. You 
can receive our catalog of Game 
and Utility Programs by sending $1 
(refundable with order). RWR Enter- 
prises, 3703 Rust Road, Annandale, 
VA 22003. 7-75 | 


Atari Software. Rent, buy, sell 
and trade; cartridges and 
diskettes only. SASE with your 
needs to: R.E.G., 2023-Ak 


Semoran Blvd. S, Orlando, FL 
32807. 


DISCOUNT ATARI software 30% 
minimum below retail. Ultima III 
$38, Zork |, ll, or HI $26.75, Atari 
Writer $72 ($2. 50 shipping). 
Send $1 (stamps OK) for exten- 
sive catalog. Multi Video Ser- 
vice, P.O. Box 246, East 
Amherst, NY 14051. Phone 
716-688- 0469, 5pm to 9pm. 


KK 


ATTACK ON BASE PLANET HEXOR 
- A new 48K disk based game for 
Atari computers. You control 10 
ships against another player or the 
computer in this tactical, very ex- 
citing, strategic and fun game.of 
space warfare. Only $26.95 post paid 
anywhere in the continental U.S. 
Send check or money order to Fort- 
soft, P.O. Box 514, Glastonbury, CT 
06033. 


ATARI CUSTOM PROGRAMMING: 
Business, Scientific or Graphics in 
Basic or Assembler. $10/hour. M. 
Kishore, 202 Courtney Place, Green- 
ville, NC 27834. 919-756-6868. 


VOICE BOX | Speech Synthesizer 
Votrax SCO1A Chip in Socket. Tape © 
or Disk Pgm. Mint. $30. LEN, 
212-777-4353. 


